home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / chopper pilot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  114 lines
  1. 0 poke53248+21,.
  2. 1 ifa=.thena=1:load"chopper.fnt",8,1
  3. 2 ifa=1thena=2:load"chopper.wrd",8,1
  4. 3 poke53272,(peek(53272)and240)or14
  5. 4 poke16383,255:gosub60100:clr
  6. 5 poke53281,1:poke53280,5:goto2000
  7. 10 wf$="[255][223][157][157][190][191]":print"[147]":ns=10:poke2040,14
  8. 12 x=140:y=235:s=54296:v=53248:cl=53279:f=.:pokecl,.:m=.:l=.:mo=.:ne=.
  9. 13 pokev+16,.:pokev,x:pokev+1,y:pokecl,.:mn=int(ns/3)
  10. 14 print"";:fora=1to24-ns:print"";:next
  11. 15 print"[147][150][168][168][168][168][168][168][168][168][168][168][168]"
  12. 17 fora=1tons-1:print"[168][168][168][168][168][168][168][168][168][168][168]":next
  13. 18 print"[168][168][168][168][168][168][168][168][168][168][168]    [175][175][175][175][175]"
  14. 20 print"";:fora=1to26-ns:print:next
  15. 21 fora=1tons/2-3:ifrnd(1)>.3thenprint""wf$;
  16. 22 ifrnd(1)>.3thenprint"[145]"wf$;
  17. 23 ifrnd(1)>.3thenprint"[145]"wf$;:up=1
  18. 24 print:ifupthenup=.:print
  19. 25 next:gosub9060
  20. 26 pokev+16,.:pokev+21,1:pokev+29,1:pokev+39,6:restore
  21. 30 fort=832to840:readq:poket,q:next:fort=896to904:readq:poket,q:next
  22. 40 fort=841to870:readq:poket,q:poket+64,q:next
  23. 45 fort=871to894:poket,.:poket+64,.:next
  24. 50 j=peek(56320):l=l+(j=126)*.2:l=l+(j=125)*-.2:m=m+(j=123)*.2:m=m+(j=119)*-.2
  25. 55 print""tab(20)"[154]men in building:"mn
  26. 60 x=x+m:y=y+l
  27. 65 gosub1000:ifnot(ok)then120
  28. 70 if(f=0)and(x>255)thenx=.:pokev+21,.:pokev+16,3:f=1:goto110
  29. 75 if(y>238)or(y<50)then120
  30. 80 if(f=0)and(x<24)then120
  31. 85 gosub1000:ifnot(ok)then120
  32. 90 if(f=1)and(x<0)thenx=255:pokev+21,.:pokev+16,0:f=0:goto110
  33. 100 if(f=1)and(x>40)then120
  34. 105 gosub1000:ifnot(ok)then120
  35. 110 pokev,x:pokev+1,y:pokev+21,1
  36. 115 if(nm)thengosub9000:if(ne)then12
  37. 118 goto50
  38. 120 pokes,15:fort=50to.step-1
  39. 122 poke2040,1
  40. 124 poke54276,.:poke54273,t:poke54272,t:poke2040,2:poke54277,128:poke54278,132
  41. 125 poke54276,129:fora=1to10:nexta,t
  42. 131 data000,000,000,000,007,000,000,002
  43. 132 data000,007,224,000,000,031,192,000
  44. 133 data002,063,224,006,000,144,031,128
  45. 134 data072,114,064,063,242,032,007,254
  46. 135 data032,000,255,192,000,031,128,000
  47. 136 data010,000,000,018,064,000,063,192
  48. 140 pokev+21,.:print"you crashed!"
  49. 150 print"press space for menu"
  50. 160 ifpeek(203)<>60then160
  51. 170 goto2000
  52. 1000 ok=-1:a=peek(cl)and1:if(a)thenok=.
  53. 1005 b=14+(b=14):poke2040,b:pokes,15:pokes,.
  54. 1010 if(ok)thenreturn
  55. 1020 tb=(24-ns)*8+37
  56. 1030 if(x<75)and(y<tb+4)and(l<=1.4)and(m<=1)theny=tb:m=.:l=.:ok=-1:mo=1:er=1
  57. 1035 if(er)thener=.:print"";:fora=1to23-ns:print:next:print" ":return
  58. 1040 if(y<239)and(l<=1.4)and(m<=1)and(x>117)andx<154theny=235:m=.:l=.:ok=-1:nm=1
  59. 1050 if(nm)and(mo=.)thennm=.:return
  60. 1100 return
  61. 2000 poke53280,2.:poke53281,.
  62. 2005 print"[147][159]":sc=1024+10:gosub60300
  63. 2010 print"                   by"
  64. 2020 print"           bob and dave snader"
  65. 2030 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][148][192]"
  66. 2040 print"          p [154]- play chopper pilot"
  67. 2050 print"          q [154]- quit"
  68. 2060 print"          [154]press p [154]or q[154]."
  69. 2070 a=peek(203):ifa<>41anda<>62then2070
  70. 2080 ifa=41then10
  71. 2090 gosub60000:goto2060
  72. 9000 sc=2004:fora=1to4:r(a)=a+64:next
  73. 9010 fora=scto2023step2:forb=1to4
  74. 9020 j=int(b/4):pokea+j,r(b)
  75. 9030 pokea+j+54272,15
  76. 9040 forc=1to60:next:pokea+j,32
  77. 9050 nextb,a:nm=.:mo=.:mn=mn-1
  78. 9060 ifmn>.thenprint"";:fora=1to23-ns:print:next:print"[155]\":return
  79. 9070 ns=ns+2:ifns>22thenns=22
  80. 9080 ne=1:mn=1:goto9060
  81. 60000 print"[145]  [154]are you sure you want to quit? (y[154]/n[154])"
  82. 60010 a=peek(203):ifa<>25anda<>39then60010
  83. 60020 ifa=39thenprint"[145]                                      [145]":return
  84. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  85. 60040 ifer<>63thenend
  86. 60050 print"[147]":poke53272,21:load"hello connect",8
  87. 60100 poke53280,1:poke53281,1
  88. 60110 print"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  89. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  90. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  91. 60140 fora=217to242:pokea,peek(a)or128:next
  92. 60150 print"          [149]loadstar presents:"
  93. 60160 print"                               "
  94. 60162 print"                               [155] "
  95. 60163 print"                               [155] "
  96. 60170 print"                               [155] "
  97. 60180 print"                               [155] "
  98. 60183 print"                                [145]"
  99. 60185 sc=1024+9*40+10:gosub60300
  100. 60190 print"         by  bob & dave snader [155] "
  101. 60200 print"                               [155] "
  102. 60210 print"            copyright  [193][194][195][196]    [155] "
  103. 60220 print"                               [155] "
  104. 60230 print"                                "
  105. 60240 print"        [149]press space to continue"
  106. 60250 ifpeek(203)<>60then60250
  107. 60260 return
  108. 60300 me=49152:le=21:co=peek(646)
  109. 60310 fora=metome+le-1:ad=a-me
  110. 60320 pokesc+ad,peek(me+ad):pokesc+ad+54272,co
  111. 60330 pokesc+ad+40,peek(me+ad+le):pokesc+ad+40+54272,co
  112. 60340 pokesc+ad+80,peek(me+ad+le*2):pokesc+ad+80+54272,co
  113. 60350 next:return
  114.